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LL III11I SSSSSSSS : 
LL III] SSSSSSSS | ; 
LL I] SS : 
LL II ss 3 
LL I] Ss ; 
LL II SS e 
LL 1] SSSSSS Ps 
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LL Il SS : 
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MODULE PATERR ( HT ZVARIANT EQL 1 


ADDRESSING _MODE (EXTERNAL = LONG RELATIVE 
NONEXTERNAL = LONG_RELATIVE), 


] 
ENT = ‘'V04-000' 


BEGIN 


42 | 
ence tee gies ts NS umShASTERCCPAT ON SkcoPATERR.B3204°° (15) 


eee Re RR RAA AAA AEAA EAE EE RA AAAE ERATE ERATE ETEK REREARAA AERA eee eee 


eee RARER REHEAT AAA e eee 


COPYRIGHT ‘c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
oy ACCORDANCE WITH THE TERMS O int AND WITH TH 


- 
z 


E 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ComPORAT Ione NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


le¢ 
FACILITY: PATCH 


ABSTRACT: ERROR HANDLER 

| ENVIRONMENT: IMAGE FILE PATCH UTILITY 

! AUTHOR: K.D. MORSE =, CREATION DATE: 5-OCT-77 
i MODIFIED BY: 


vO3-002 MTROO25 Mike Rhodes 11-Aug-1983 
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Add OVERLAY message definition to shared message declarations. 


This message is issued when a file is being eeetes as a 
result of the user's request /ABSOLUTE and /N EW_VERSION 
qualifiers on the DCL command Line. 


v03-001 MTROOOS Mike Rhodes 15-Jun-1982 
Modify JNL_ERRMSG to return a value (to indicate 
whether or not the message has been written) to 
correspond with SPUTMSG protocol. 


A new GLOBAL ROUTINE has been added to support the use of the 
shared messages. GETFILDSC (fab) has been added to generate 
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and return the adress of of a file descriptor containing the file 
name of the problem f 


Adit shared megsage definitions. 


v02-008 PCG0001 Peter George 02-FEB-1981 
Add require statement for PiBS:PATDEF .REQ 
V02-007 KDM0027 Kathleen D. Morse 4g Bh 


Remove special case for ECOSET error. It is now an 
informational message and handled in PATSECO. CMDS. 


* 5 
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PATERR 
v04-000 


? 
7 i TABLE OF CONTENTS: 
18 : 
? FORWARD ROUTINE 
7 PATSERR_HANDLER, 
78 JNL_E 

19 : PATSERROR_EXIT; 

1 0 
: 9 i INCLUDE FILES: 

4 0 
85 i LIBRARY 'SYSSLIBRARY:STARLET.L32'; 
86 90 REQUIRE 'SRC$:VXSMAC.REQ'; 
87 1 EQUIRE 'SRC$:PATPCT.REQ’; 
be REQU 


*SRCS$:PREFIX.REQ'; 


IRE 
IRE 

REQUIRE (L1BS:PATMSG. REQ"; 
IRE *SRCS:PATPRE .REQ'; 


Define shared messages and associated severities. 


SSHR_MSGDEF (PAT, 109, GLOBAL, 
(closein, severe) 
(closeout, severe), 
(openin, severe) 
(openout, severe), 
(readerr, severe) 
(syserror, severe), 
(writeerr, severe), 
(overlay, info)); 


vuvUVUUU 
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EQUATED SYMBOLS: 


OOO O00 W090 090 OOO SI NINN SIN NSN NNO OS FF OMI DOOD NNN 
WR 0 ODNOA UE WN — O OONAO UE WN “OVO DLO FEN —OOONOuUe ur 


LITERAL 


SN NSS NS BO 


oO 
= 


EXCEPTION_NAME = 1; 
' 


OWN STORAGE: 


JNL_PUT_MSG : VECTOR C5,LONG) INITIAL ( 
PAT$_JNLPUT, 
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0000000 
oo 
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' Error handler 
' Action routine for SYSSYSS$PUTMSG call 
! Error exit routine 


! System structure definitions 
! Define PSECTS 


"LIBS: PATDEF .REQ'; ; Defines 


er te ee 


Literals 
PATCH error message codes 


Offset to name of exception 


0-742 3 
CH.SR ) 


SYSSPUTMSG argument List for journal error. 


Count of arguments 
Error message code 
FAO argument count 
RMS error code 


M 2 , 
16-Sep-1984 00:11:1 VAX=11 Bhiss-32 V4.0-742 Page 4) PA 
1o8eb219B4 12:52:59 DISKSVMGMASTERSCPATCH-SRCIPATERR.B32¢37° (2). 
; 12 0806 1 0); ! S$TV error code 
; 150 607 1 
3 Vo) 08 1! 
wi ¢ 809 1 ! EXTERNAL REFERENCES: 
-> pai 17 
s 156 8 11 (#4 
3 155 B16 1 EXTERNAL ROUTINE 
; 4 $ 08135 1 SYSSPUTMSG, ! Qutputs error messages 
o's 0814 1 PATSEND_OF LINE, ! Resets for next command 
; : : oot? ! PATSCLOSEFILES; ! Close all files | 
> 140 O81? 1 EXTERNAL 
3; 141 \8 1 PAT$GB_EXEC_CMD : BYTE, ! Command execution flag 
: 136 819 1 PATSGL_FLAGS ' CLI flags 
; 46 820 1 $GL-INPRAB : BLOCK BYTE, i RAB for input commands (SYS$INPUT) 
3 146 : Tee PAT$GL_OUTRAB : BLOCKL,BYTEJ, ' RAB for output information (SYS$OUTPUT) | 
> 145 0 ¢ 1 PATSGL_ERRRAB : BLOCK BYTE ! RAB for error messages (SYSSERROR) 
: 146 08 1 PATSGL_JNLRAB : BLOCK[,BYTE], ! RAB for journal file 
3. «147 baSe 1 PATS$GL_ERRCODE, !' Error code 
: 148 0825 1 PATSGL_ERRFAB : BLOCKC,BYTE], ' FAB for SYSSERROR 
3; 6149 0826 1 PATSGL_INPFAB : BLOCKL,BYTEJ, ' FAB for SYS$INPUT 
s 1599 0827 1 PATSGL_OUTFAB : BLOCKL,BYTE); ' FAB for SYSSOUTPUT 
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GLOBAL ROUTINE PATSERR_HANDLER (SIGNAL_ARG 


14 


+ 
FUNCTIONAL DESCRIPTION: 


This routine is SIGNALLed whenever an error occurs. 
the routine SYSSPUTMSG to outpu 
and SYSSOUTPUT 


file 
If t 


lf the journal write was successful 
level and the type o 
actions taken: 


athesuos SESSION 


error severit 
table shows t 


SEVERITY LEVEL 
FATAL 

SEVERE 

WARNING 
INFORMATION 
ALL exits cause the files to be closed and the status code to 


be passed to CLI. When PATCH unwinds, a new PATCH command is 


requested. 
FORMAL PARAMETERS: 
SIGNAL_ARG_PTR = Address of the signal argument block 
MECH _ARG_PTR = Address of the mechanism argument block : ; k 
ENABCE_ARG_PTR fn of the enable argument block, from bliss enable directive 
IMPLICIT INPUTS: 


The error messages must be already defined in the system and the 
output files open. 


IMPLICIT OUTPUTS: 


none 


ROUTINE VALUE: 


none 


COMPLETION CODES: 


none 


SIDE EFFECTS: 


The error message is written to the SYSSERROR, journal file, 
and SYSSOUTPUT channels. 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CPATCH.SRCIJPATERR.B32 


p=1986 f2:52:58 


TR, MECH_ARG_PTR, ENABLE_ARG_PTR) 


e error message to the 
ifferent from SYSSOUTPUT). 

le output fails, then PATCH produces a corresponding 
message to the other channels and exits with an error status. 


then PATCH determines the 


f patch session. The following 


w 


Be Se Be Be Oe Se Be Oe Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Ge Se Se Se Ge Se Se Se Se Se Se FF Se Se Se Se Se Se Ge Ge Fe oe Se Fe Se Se Fe ese Se Seas 


itn sanniceaepnntvenisisidainoansiasionstsTubviiienintieastipicncedeeccacip ai ) 


3 
PATERR 1B-sep-1984 00:11: VAK=11 BLiss-32.V4.0-742 Pece 6! 
04-000 oaeen Toes foie tS PARC SUMGMASTERSCEATON CACIPATERR.B3201°° (34, 


: 209 0885 ; 
s 210 0886 LITERAL : 
; ei} 0887 ARG_COUNT = 0, ! Offset to count of arguments : 
; si¢ 0888 ERR_CODE = 1; ! Offset to error code ; 
s 6¢) 0889 : 
> 214 0890 MAP : 
3; <19 0891 SIGNAL_ARG_PTR : REF VECTOR, ! Signal argument block address : 
> 216 Baas MECH_ARG_ PTR : REF VECTOR ! Mechanism arguemtn block address ; 
$ sit Baez ENABCE_ARG_PTR : REF VECTOR; ' FAO argument block address ; 
a 29 0895 '+4 3 
; 530 t34 Check for UNWIND exception. | : 
Ps — | 6 
; $2¢ 0898 3 iF (.SIGNAL_ARG_PTRCEXCCPTION_NAME] EQL SS$_UNWIND) ; 
3 ge 0899 2 THE 3 
> 224 0900 2 RETURN SS$_RESIGNAL; : 
s ges 0901 2 ; 
; 226 0902 2 i++ : 
; ssf Benz 3 ; Cancel Control-0 on SYSSERROR and SYSSOUTPUT channels. ; 
: 229 0905 2 PATSGL_OUTRABCRABSL_ROP]=.PAT$GL_OUTRABCRABSL_ROP] OR RABSM_CCO; 3 
; 230 0906 ; PATS$GL_~ERRRABLRABSL_ROPJ=.PATS$GL_ERRRABLRABSL_ROP] OR RABSM_CCO; | : 
; 232 0908 2 !++ : : 

: Siz eg § Decrement the count of arguments to eliminate the PC and access-violation. 

; 235 0911 2 SIGNAL_ARG_PTRCARG_COUNT] = .SIGNAL_ARG_PTRCARG_COUNT] = 2; | 

> 236 bat 2 

: 237 0913 2 !++ ‘ 

3 $30 Bete § Format the message and output it to SYSSERROR and SYSSOUTPUT and the journal file. 

: 240 0916 2 SYSSPUTMSG(.SIGNAL_ARG_PTR, JNL_ERRMSG, 0); 

: 241 0917 2 

3 seg 0918 2 !++ 

3: 24 0919 2 ! Restore the argument count. 

> 2446 0920 2 !-- 

; g45 0921 é SIGNAL_ARG_PTRLARG_COUNT] = .SIGNAL_ARG_PTRCARG_COUNT] + 2; 

: 34¢ 0923 2 

: 248 0924 § 14+ 

: 249 0925 ! Check if patch session is interactive or batch. Check severity level of error. 

; $20 8359 ! Either exit, unwind, and/or return based on table described above. 

: 5 398 

3 5 929 'e¢ . 

j See ahs! First handle the interactive cases. 

: 256 093 IF (,PATSGL_INPFABCFABSL_DEV] AND DEVSM_TRM) NEQ 0 ! If this is interactive 

“TH +4 093 THEN 

; 58 0934 BEGIN 

: 44 +3 5 Hr gg UU ANG PIRCERA CORED AND MSGSK_FATAL) EQL MSGSK_FATAL ! If error was fatal 

: 261 9 $ PATSERROR_EXIT(.SIGNAL_ARG_PTRCERR_CODE)); ' Exit with error status 

3 $06 HY {F< -SIGHAL_ARG_PTRCERR_CODE AND ASGSK_INFO) NEQ MSGSK_INFO ! If not information msg 

i: 264 940 4 BEGIN 

; 265 0941 4 PATSEND_OF _LINE(O); ' Reset for next command 


3 
1$-sep-19 4 90: 24 VAX=11 Bliss=32 V4.0-742 7) 
14-Sep-1984 12:52:3 DISKSVMSMASTER: CPATCH. SRCJPATERR. a32s19 * «3)| 


-TITLE PATERR 
-IDENT \v04-000\ 


.PSECT _PATSOWN,NOEXE,2 
00000000 00000000 00000000 006D818C 00000004 00000 JNL_PUT_MSG: 


: 3 $ O3t8 4 wena ! Unwind to command processing frame 

: 268 0944 END : ! End of interactive handling 

: 269 0945 

; 79 B3e8 1+ 

: e7i 094 i Now for a batch session. 

3 r¢ 0948 ie 

he ts 0949 ELSE 

; ooe Bees i (SIGNAL _ARG_PTRCERR. CODE) AND MSGSK_INFO) NEQ MSGSK_INFO ! If not information msg | 

: $f 0326 PATSERROR_EXIT(.SIGNAL_ARG_PTRCERR_CODE)); ! Exit with error status | 

: 5% 098, § 14 

3 444 B38? tr Reset the RAB so Control-0 will work correctly. 

: 281 0957 5 PATSGL -PUTRABERABSY CCOJ=FALSE; | 

; 282 0958 ‘f PATS$SGL ERRRABLRABSV_CCOJ=FALSE; 

; 283 0959 RETURN” SS$_CONTINUE? 

; 284 0960 1 END; ! End of PATSERR_HANDLER 
| 
| 
| 


“LONG 4, 7176588, 0, 0, 0 ; | 
ISE$SC_SIZE== 20 | 
TXTSC~SIZE== 4 | 
PALS$C~SIZE== 16 | 
ASDSC~SIZE== 9 | 
FWRSC-SIZE== ¢4 | 
PATS_CLOSEIN== 147604 
PAT$_CLOSEOUT== 7147612 | 
PATS$_OPENIN== 7147676 
PAT$_OPENOUT== 7147684 
PATS_READERR== 7147700 | 
PATS_SYSERROR== 7147956 | 
PAT$_WRITEERR== 7147732 | 
PATS-OVERLAY== 7147691 | 

‘ SYSSPUTMSG, PATSEND_OF _LINE | 

TEXTRN PATSCLOSEFILES, PATSGB~EXEC_CMD | 

“EXTRN PATSGL_FLAGS $GL_INPRAB 

TEXTRN PATSGL-OUTRAB, PATSGC_ERR 

-EXTRN PATSGL-JNLRAB. PATSGL ERRCODE 


“EXTRN PATSGL-ERRFAB, PATSGL~INPFAB | 
-EXTRN PATSGL-OUTFAB, SY SSUNQIND 


-PSECT _PATSCODE,NOWRT.2 


009¢ 90009 SENTRY PATSERR HANDLER, Save R2,R3 ; 0828 

53 00000000v EF 9F 00002 ROVAB PATSERROR EX! | 

4 AC OD 0 MOVL tis ~Ant BTR ; 0898 | 

00000920 &F 4 AZ D1 0000 CHL 4 R2) , #2336 | 
06 12 0001 BNEG | 


; Routine Size: 148 bytes, Routine Base: _PATSCODE + 0000 


d 3 
PATERR 16-Sep-1984 211: VAX-11 Bliss-32 V4.0-742 Page 8. 
v04-000 1o-808- 1 3Be OO: Ud 8 DISKSVMSMASTER: CPATCH. SRCIPATERR.B32:1> (3) | 
50 0918 8F ¢ 7 MOVZWL #2328, RO ; 0900 : 
900000006 EF 80 F 1 1$ BISB2 #128, PAT$GL_OUTRAB+7 : 0905 ; 
00000006 EE F BISB2 #128, PATSGL-~ERRRAB+7 + 0906 | ; 
2 2 .£ d SUBL2 #2, (R2) + 0911) ; 
E p4 90 CLRL = = (§P) : 0916) ; 
00000000v FF F 000 PUSHAB JNL_ERRMSG : : 
é DD 000 PUSHL R : ; 
00000000G_ EF p FB 003A CALLS #3, SYSSPUTMSG 3 ; 
62 CO 00041 ADDL2 #2. (R2) : 0921 ; 
26 000000006 EF 9 E1 00044 BBC #2. PATSGL_INPFAB+64, 3$ : 09 é : 
6 62 E1 004 BBC #34, (R2), 2$ : 09 : 
04 Ae dD 0005 PUSHL 4(R2) : 0937 | ; 
63 01 FB 000 CALLS #1, PATSERROR_EXIT : ; 
03 04 a2 2 09 FD 00096 2s: CMPZV #0, #2, 4(R2)7 # : 0938 | 
¢ 9005¢ BEQL © 4$ ; 
E 04 O05 CLRL  =(SP) + 0941 
000000006 EF ON FB 0006 CALLS #1, PATSEND_OF_LINE ; 
E 7C 00067 CLRO. 2s = (§P) + 0942 
000000006 00 02 FB 90069 CALLS #2, SYSSUNWIND F 
0€ 11 00070 BRB + 0932 
03 04 A2 02 00 ED 00078 3$: CMPZV #0, #2, 4(R2), #3 + 0950 
06 13 0007 BEQL ; 
04 A2 DD OOO7A PUSHL  4(R2) + 0952 
63 01 FB 0007D CALLS #1, PATSERROR_EXIT ; 
000000006 EF 80 8F BA 00080 4$: BICB2 #128, PAT$GL_OUTRAB+7 : 0957 
000000006 _ EF 80 8F 8A 00088 BICB2 #128, PAT$SGL~ERRRAB+7 : 0958 
50 01 0 00090 MOVL #1, RO : 0959 
04 00093 RET : 0960 
| 


3 

PATERR 1bese -1984 00:11: VAX-11 Bliss-32 V4.0-742 Page 9 
v04=000 1ereep-19RG TosSei3o — DLRKSVMEMASTERSEEAT ON SRCIPATERR.B3204%" (45 
3 86 961 1 ROUTINE JNL_ERRMSG (MSG_DESC)= 
; 306 1 
; 288 965 1 !44 
: 34 Boge ! FUNCTIONAL DESCRIPTION: 
: 291 8206 1! This routine is called by SYSSPUTMSG just before the message is output 
: 29 0967 1! to SYSSERROR and SYSSOUTPUT. It writes the error message or informational 
; a 0968 1! message to the journal file. 
; 294 0969 1! 
: 95 0970 1 ! FORMAL PARAMETERS: 
; 296 0971 1! 
; apr 94h: . 3 MSG_DESC = String descriptor for message 
; 298 0975 1! 
: 99 0974 1 =! IMPLICIT INPUTS: 
Bt Eat! he 11 ine jeernt ve tetoon Reese 
3 ' e journal file is open for output. 
: 302 0977 1 | . : 
3 303 0978 1 =! IMPLICIT OUTPUTS: 
: 304 0979 1! 
3; 305 0980 1! none 
; 306 0981 1! 
3 «por 0982 1 ! ROUTINE VALUE: 
; 308 0983 1! 
; 309 0984 1! none 
: $19 0985 1! 
3 11 0986 1 ! COMPLETION CODES: 
3 $18 0987 1! 
s ST 0988 1! none | 
; 314 0989 1! 
; 315 0990 1 ! SIDE EFFECTS: 
3 3 0991 1! 
s Sie 0992 1! The message is written to the journal file. If this cannot be 
; 318 0995 1! done, then the routine causes another error message to be output 
3 4 0994 1! and causes PATCH to exit. 
; 320 0995 1! 
S ie 0996 1 !-- 
r $§ 0997 1 
: 099 BEGIN 
: 324 099 
; we 1000 
3 Bee 1001 LOCAL 
g See 1008 LOCAL_ERR; ! Local error code 
: 329 1004 | 
3 % 1905 MSG_DESC : REF BLOCKC,BYTE); ! $tring descriptor for message | 
3 3 1007 '+¢ 
; az H's : Check that the journal file has been opened. 
; 335 1946 LF (-PATSGL_FLAGS AND PATSM_JOURNAL) EQL 0 
3 id 10g RETURN TRUE; ' Return TRUE if it has NOT. 
; 338 101 
, 39 1014 '+¢ : . 
3 ra 4 3 } Output the error message to the journal file. 
3; 342 1019 PATSGL_JNLRABCRABSW_RSZ7J=.MSG_DESCCOSCSW_LENGTH); ! Set error message length 

} 


: - ay) 
F 3 
PATERR 16-Sep-1984 71 VAX-11 Bliss-32 V4.0-742 Page 10 
v04-000 14- et 7 99: 33:38 DISKSVMSMASTER: CPATCH. SRCJPATERR. B32:1° (4) | 
: 343 1018 PATSGL ~{MbCar EARS RBFJ=.MSG sear POINTER]; ! Set error message address 
; re : 1, tt (LOCAL_ERR=$PUT (RAB=PATSGL_JNLRABY i Output error to journal file | 
; g 10 1 BEGIN 
; 34 1 ¢ ++ 
; 48 10 i Unable to write to the journal file. Report the error to the 
3 rh 8 ¢ : _error and output channels. Then output the journal write error. 
:. oe 1026 PATSGL _OUTRABCRABSW_RSZJ=.MSG_DESCCOSC$W_LENGTH); ! Set error message Length | | 
3 26 1027 PATSGL_OUTRABLRABSL_RBF J=.MSG_DESCLDSCSA “POINTER; : Set error message addre 
: 35 1028 SPUT (RAB=PATSGL 0 UTRAB); | Qutput error to SYSSOUTPUT | 
: 2 19 9 4 IF (.PATSGL TERRFABLFABSU. IFI] NEQ .PATSGL_OUTFABLFABSW_IF IJ) 
: 328 108 2 worn bee | 
: 57 1038 4 Ie _ERRRABCRABSW_RSZ7J=.MSG -DESCED DSC$W_LENGTH]; ! Set error message length 
; 358 1033 4 PATSGL_ERRRABLRABSL_RBF J=.MSG_DESCCDSC$A_POINT TERS; ' Set error message address 
: o22 See 4 SrUT CRRBSPATSOL _ERRRAB) ; '"Qutput error to SYS$ERROR 
; He 1982 ; JNL pul r sot} = -LOCAL 
3 205 1037 JNL-P 4 Rta UNC RABLRABSL. STV); 
. 1038 3 Se OUTRCE ING Put MSG, 0, 0); ' Report journal PUT error 
; 364 1039 3 PATSERROR_ EX1TTPATS_JNLPUT) ; ! Exit with error status | 
3; 365 1040 3 END; | 
; 366 1041 RETURN TRUE: 
; 367 1042 1 END; | 
.EXTRN SYSS$PUT 
O1FC 00000 JNL_ERRMSG: 
.WORD Save R2,R3,R4,R5,R6,R7,RB : 0961 
58 00000000" EF 9€E 0000 MOVAB JNL_PUT _MSG+12, RB - ; | 
$7 000000006 EF 9€ 0000 MOVAB — PATSGL L_ERRRAB® $4, R? ; | 
56 000000006 34 9E 00010 MOVAB PATSGL_OUTRAB+34, R6 3 
55 000000006 00 9€ 00017 MOVAB SYSSPUT, R : 
54 00000000G EF 9E eid MOVAB PATSGL JNLRAB+34, R4 : 
62 000000006 EF 01 €1 0002 BBC PATSGL_FLAGS, 2$ : 1010 
52 04 Ac dO 900¢b MOVL hsé DESC, R2 : 1017 
64 6¢ BO 909 1 MOVW  (R2J, PATSGL_JNLRAB+34 ; 
06 Ad 04 A2 dO 00034 OVL 4(R2 ). PATSGC ~ JNLRAB+40 > 1018 | 
DE <A& 9F 00039 PUSHAB PATSGL_JNL 3; 1019) 
65 01 FB 0003C CALLS” #1. SYSSPUT. : | 
53 29 09 000% MOVL RO, LOCAL_ERR : 
‘A 53 € O42 BLBS LOCAL _ERR ; | 
66 62 BO 0004 MOVW  (R2), PAT$GL_OUTRAB+34 > 1026 
06 Ab 04 A2 00 00048 MOVL  4(R2S, PATS$GC_OUTRAB+40 : 1027 
DE A6 9F 00040 PUSHAB PATSG GL_OUTRAB~ : 1028 
65 01 FB ita CALLS #1 YS$PuT 3 
00000000G EF 000000006 3 a Bee or its ERRFAB#2, PATS$GL_OUTFAB+2 : 1029 | 
67 4 43 $08 MOVW (R2), PATSGL_ERRRAB+34 : 10 a 
06 AZ 04 A b0 6 MOVL 4 (hes PATSGC | ERRRAB+40 : 10 | 
65 = 0 re 6B CALS) at eySSP PUT Saeed 
68 3 08 06E 1$: MOVL LOCAL_ERR, JNL_PUT_MSG+12 : 1036 | 
06 As EA Ad D Wal MOVL BATSEC. JNLRAB+T2, ae _PUT_MSG+16 : 1087 
| 


VAX-11 Bliss-32 V4.0-742 e a 
DISKSVMSMASTER: CPATCH. SRCJPATERR.B32; pee (4) | 
-(SP) ; 1038 | 
JNL_PUT_MSG 3 
000000006 EF a S$ SSPUTMSG : 
006D818C = BF #7176588 + 1039 
00000000v ff 1 #1, PATSERROR_EXIT : 
0 1 : MOVL #1, RO + 1041 
RET + 1042 


; Routine Size: 147 bytes, Routine Base: _PATSCODE + 0094 


H 53 
16-Sep-1984 : VAX-11 Bliss-32 V4.0-742 1 
14- 300713 984 90: 3 48 DISKSVMSMASTER: CPATCH. SRCIPATERR. B32, 79 - (5 


ROUTINE PATSERROR_EXIT(ERR_CODE) = ! Error exit routine 


OOoOoCooO 


, ee ee 


rs 


FUNCTIONAL DESCRIPTION: 
This routine exits with an error status code. 


ERR_CODE = Error status code 


! IMPLICIT INPUTS: 


SOOONA LEW" OOONOUEW 


none 
IMPLICIT OUTPUTS: 
none 
{ ROUTINE VALUE : 
none 
COMPLETION CODES: 
ALL kinds of error status codes and success codes. 


: SIDE EFFECTS: 


none 


BEGIN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


wwe ofololololololololelelololelelelololo! 
SIN NSN NSA A AAAAAAAAMMIMIMNMIMIIII 


WONOULSWN—$O OONOUS wh 


Sens Somnent Amn _SaOe OR 1*28)); 


! Exit with status 
NP 107 ! End of PATSERROR_EXIT 


8 
; Null expression appears in value-required context 


~-EXTRN SYSSEXIT 
0000 00000 PATSERROR at 


. Save nothing 3: 1043 

7E 04 Af 10000000 8F C9 00002 BISL #268435456, ERR_CODE, -(SP) : 1078 
000000006 60 9} FB goes CALLS #1, SYSSEXIT : 

0 04 0001 CLRL RO : 1079 
04 00014 RET : 


Routine Base: _PATSCODE + 0127 


i FORMAL PARAMETERS: 
| 


PATERR 
v04-000 


1h-s -1984 00:11: VAX=11 Bliss-32 V4.0-742 Pa 13) 
14- Sep-19 4 99:35:48 DISKSVMSMASTER: CPATCH.SRCJPATERR.B32;1 ra (6) 


.PSECT _PATSOWN,NOEXE,2 


00014 FILEDESC: 
-BLKB 8 


.PSECT _PATSCODE ,NOWRT,2 | 
9000 SENTRY GETEILDSC, Save R2 : 1080 | 
| 


; 407 1080 1 GLOBAL ROUTINE getfildsc (fab) = ° 
3 cos 1081 BEGIN ; 
; 40 1 lee ; 
; 410 1 : 
>; «$11 1084 i Functional Description: : 
: aig 1085 2 | ; 
; 4) 10 § This routine ferrets out a string descriptor for a file name to be ; 
> 416 10 i returned to the caller. ; 
3; 415 1088 i ; 
; 416 1089 i Inputs: : 
; (41 1090 ' : 
; 4) 1091 i fab Address of the FAB for the file. : 
; 41 1 35 i : 
: 420 109 i Qutputs: ; 
: 421 1094 i 5 
; 2 § 944 z Routine Value is the address of the string descriptor for the file name. ; 
3 634 1097 ie $ 
; 425 1098 F 
: $$8 1099 MAP : 
; 427 1100 fab : REF S$BBLOCK : 
i 499 1102 ¢ BIND | : 
: 430 110 nam = .fab(fab$l_nam) : SBBLOCK; : 
: 431 1104 3 
3 $36 1105 OWN : 
3 re Bs filedesc : SBBLOCK Cdsc$c_s_bin]; : 
; 435 1108 IF Citledesctdectu length] = .namCnam$b_rsl]) NEQ 0 : 
; 436 1109 , THE 3 
; 43? 1110 as filedesc(dsc$a_pointer] = .namCnam$l_rsa) | : 
; 439 1136 IF (filedesc(dsc$w_length] = .nam{nam$b_esl]) NEQ 0 : 
: 440 111 THEN : 
3 (441 1114 Sima Fe OO = .namCnam$l_esa] ; 
: 64 1115 ELSE | ; 
; 44 1116 : 
> 4446 1117 fcaeetenety Length] = .fab(Cfab$b_fnsJ; : 
3 445 1118 iledesc(dsc$a_pointer] = .fabCfab$T_ tnal; 3 
; 446 1119 : 
3; 447 1120 ; 
: 448 1121 5 filedesc . 
; 4469 1122 1€ ! End of GETFILDSC : 


0004 
EF 9€ 000 


52 00000000" 


MOVAB FILEDESC : 


| 


3 
PATERR 1b-se 1984 00:11: VAX=11_Bliss-32_V4.0-742 Page 14 

v04-000 14-Sep-1984 9:33:48 DISKSVMSMASTER:CPATCH.SRCIPATERR.B32;1> (6) 
1 4 AC D0 90009 MOVL FAB, R1 ; 1103 ; 
50 2 Al pO 0D MOVL  40(R1), RO : : 
é AQ § 1 MOVZBW 3(RO), FILEDESC ; 1108 ; 
04 a2 04 AD 31 ROVE (RO), FILEDESC+4 ; 1110 
62 08 AQ 98 000IE 18 MOVZBW 11(RO), FILEDESC ; 1112 ; 
07 13 000 BEQL © 2$ : : 
04 A2 0c AO Dd 00024 MOVL  12(RO), FILEDESC+4 : 1114 ; 
09 11 00029 BRB 38 : 
6 34 Al 98 00028 28 MOVZBW 52(R1), FILEDESC : 1117 : 
06 A C Al pO 000¢F OVE S4(RT), FILEDESC #4 : 1118 ; 
5 62 9E 00034 38 MOVAB FILEDESC, R : 1121 ; 
04 00037 RET : 1122 ; 
; Routine Size: 56 bytes, | Routine Base: _PATSCODE + 013C : 
; 450 1123 1 : 
: 451 1124 1 END ! End of PATERR ; 
; 452 1125 0 ELUDOM : 
; PSECT SUMMARY ; 
; Name Bytes Attributes 3 
;  PATSOWN 28 NOVEC, WRT. RD .NOEXE.NOSHR, LCL, REL, CON.NOPIC,ALIGN(2) ; 
; TPATSCODE 372 NOVEC.NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(?) 
oe” 0 NOVEC;NOWRT,NORD ;NOEXE.NOSHR, LCL. ABS, CON.NOPIC.ALIGN(O) : 
: Library Statistics 3 
Be ce avis ia at Bae ae doe en Syabols qcoocen- Pages Processing F 
; File Total Loaded Percent Mapped ime : 
;  _$255$DUAZB:(SYSLIBISTARLET.L32;1 9776 46 0 581 00:01.0 | ; 
Beat 
; Information: 1 | 3 
; Warnings: 0 : 
; Errors: 0 ; 
; COMMAND QUALIFIERS | ; 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATERR/OBJ=OBJ$:PATERR MSRC$:PATERR/UPDATE=(ENHS:PATERR) 


Pa 


STER: PATCH. SRCIPATERR.B32;1>— 


211: VAX-11 Bliss-32 V4.0-742 
DISKSVMSMA 


1986 92:52:58 


tes 
atep- 


K 
6 
4 


1 
1 


bytes 


e 
7 

eo 
vo 
co 
NS 
+ 


wm 
ee 


| 


123 pages 


tion Comple 


38 


; 
: 


372 
8 


Used: 


sed Time: 
(a 


; Lines/CPU Min: 
: Lexemes/CPU-Min: 5 
; Memor 

Compi 


; Elap 


= E | 


TARY | 


4 AH-BT13A-SE = —~—~—~—sS*ODIGITAL EQUIPMENT CORPOR 
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